Dim i As Integer      ' Zasig lokalny

If i = 0 Then
  Dim j As Integer    ' Pocztek zasigu blokowego zmiennej j
  j = 10              ' Zasig blokowy zmiennej j
End If                ' Koniec zasigu blokowego zmiennej j

Debug.WriteLine(j)
